home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / bodeplot < prev    next >
Text File  |  1995-03-31  |  12KB  |  201 lines

  1. Subject: Bode Plotter (Good One)
  2.  
  3.  
  4.         Bode Plotter for the HP48sx
  5.  
  6.  
  7.     The following is an ASC-> encoded program to display bode
  8. plots on an HP48SX. Download the program, press ASC->, then
  9. type 'BODE' STO. Directions are included below.
  10.  
  11. --------------------8<--------------------8<---------------------
  12.  
  13. %%HP: T(3)A(D)F(.);
  14. "69A20FF77C71000000501458441445508E920917003392020000830002000000
  15. 0000000000002910037048327500900000000000000819100461761709009000
  16. 0000000000061910004216773410900000000000000419100947096872209000
  17. 0000000000021910028525411630900000000000000019100966156327509099
  18. 9000000000008910072091907090909990000000000069100598616473419099
  19. 9000000000004910054098947722909990000000000029100713641760639000
  20. 0000000000000010000387584075909990000000000020100212127769989099
  21. 9000000000004020038171958040109990000000000060200774320586111099
  22. 9000000000008020053209931222100000000000000010200449646249431000
  23. 0000000000021020030042985674100000000000000410200547970841851000
  24. 0000000000061020067805317656100000000000000810200583962236071000
  25. 0000000000002020070259851737100000000000000220200966757084571000
  26. 0000000000042020009267897267100000000000000620200905430972671000
  27. 0000000000082020072605087457100000000000000030200785837017371000
  28. 0000000000023020082105532607100000000000000430200629681756561000
  29. 0000000000063020060831452185100000000000000830200226368226741000
  30. 0000000000004020097480458843100000000000000240200277812321221000
  31. 0000000000044020089062114511100000000000000640200371438758301000
  32. 0000000000084010020704725368900000000000000050100916842913159000
  33. 0000000000025010029537178962900000000000000450100815889583809000
  34. 0000000000065010027590867519800000000000000850100644495769278000
  35. 0000000000006010042062771684800000000000000260100884638255318000
  36. 0000000000046010049765457216700000000000000660100512102953486000
  37. 0000000000086010052329350487500000000000000070100646483275054000
  38. 0000000000027010061162926822300000000000000470100069134603712000
  39. 0000000000067010030821074114100000000000000870000919563394109000
  40. 0000000000008000058589613617500000000000000280000720784493163000
  41. 0000000000048000006678060282200000000000000680000539900430441000
  42. 00000000000880999294650809809000000000000000909990252801153750C2
  43. 70050D458441445508E920917003392020000830002000000000000000000290
  44. 0043075595020690000000000000819000234009850202900000000000006190
  45. 0057884724979100000000000000419000417198649795000000000000002190
  46. 0048879275979900000000000000019100195343897931099900000000000891
  47. 0007480940897109990000000000069100823493128912099900000000000491
  48. 0084377726895209990000000000029100891355669992000000000000000001
  49. 0021873162204309990000000000020100823224178083099900000000000401
  50. 0088653215422409990000000000060100893791381664099900000000000801
  51. 0088892084341500000000000000010100400759698965000000000000002101
  52. 0088083974343600000000000000410100062039281607000000000000006101
  53. 0022105505428700000000000000810100494496968068000000000000000201
  54. 0041559712204900000000000000220200575465599101000000000000004202
  55. 0009383538990100000000000000620200477162579711000000000000008202
  56. 0018553236952100000000000000030200875026639331000000000000002302
  57. 0051603817814100000000000000430200788447317941000000000000006302
  58. 0095460504375100000000000000830200636400425461000000000000000402
  59. 0003100196907100000000000000240200672689325671000000000000004402
  60. 0023035404318100000000000000640200477706317581000000000000008402
  61. 0084058417898100000000000000050200021257539391000000000000002502
  62. 0029045016979100000000000000450200090387969102000000000000006502
  63. 0068038796950200000000000000850200670450169902000000000000000602
  64. 0067025753931200000000000000260200049484178712000000000000004602
  65. 0000570631712200000000000000660200443254043522000000000000008602
  66. 0064548932582200000000000000070200887590969032000000000000002702
  67. 0062739932523200000000000000470200650974043332000000000000006702
  68. 0065067631733200000000000000870200227756178332000000000000000802
  69. 0060368163933200000000000000280200028441269332000000000000004802
  70. 0042422527933200000000000000680200637066679332000000000000008802
  71. 00423903879332000000000000000902004185698793320C2700407454453440
  72. D9D20881309A5309FF306B65044230DEE324B2A22443033F06CCD20470008F14
  73. 6608FB9760147134169169146D7CF164146D5F118A136F0CA17414713517E179
  74. 1301567C0155717FCF5DE8F2D760174E7142164808CB2130CB000503505C4F44
  75. 550D9D20C8102EF9C284E204074544534AE9C284E204074544534E97C1290D1A
  76. 59C190DA19C2A2DBBF13013292CF1893E1C42328DBF1B2130C7000501424F444
  77. 5450D9D20E1632B2DF184E2020244484E202054440A132D6E201066D6E201066
  78. 339201000000000000010D6E201066D20B14563284E2010A997632DCC0284E20
  79. 305415E44E5A1BD2B166ED116DF184E2030050544872B10833284E2040584414
  80. 454563284E2050145844144597632DCC02B2DF14563284E2010A997632EFE029
  81. 3632B21303110050D424F4445450D9D20E163284E20305415E4F1AA16C9B1339
  82. 201000000000000020EEDA11C432D6E201084E1632B2DF184E2020244484E202
  83. 054440A132D6E201066D6E201066339201000000000000010D6E201066D20B14
  84. 563284E2010A997632DCC02D6E2010844E5A166ED116DF184E2030050544872B
  85. 10833284E2040584414454563284E2050D45844144597632DCC02B2DF1EF5329
  86. 3632B2130B3100406594547540D9D20E1632B0DF184E20503505C4F44584E202
  87. 024449C2A276BA184E202054440A132D6E2010A6D6E2010A64BEF1ED2A26C7D1
  88. E97C1A92E1B7FC18DBF12ABF1E4A2051000200000000000000076BA1ED2A2387
  89. C1E0CF1E0CF1E4A2051000200000000000000090DA1ED2A2387C1893E1C42324
  90. BEF1ED2A26C7D133920100000000000002050FA1D6BB1E7EF1ED2A26C7D13392
  91. 0100000000000002050FA1D6BB10A132D6E2010A684E20202444D6E2010A6339
  92. 201000000000000020EEDA1E97C1A92E178BF1B7FC18DBF1DBBF1E4A20510002
  93. 00000000000000076BA1DBBF1ED2A2387C1893E1C42324BEF1B7FC18DBF12ABF
  94. 1E97C1A92E178BF1E0CF1E7EF1B7FC18DBF1DBBF1E0CF1E97C1A92E1E0CF1893
  95. E1E0CF1DBBF1E97C1A92E1893E1AB2E147A2084E20405805142584E204005051
  96. 42584E20405844144584E20108584E20205415B2130EFE0293632B2130CA2005
  97. 01424F4254550D9D20E1632ED2A269112303A193632B21301300030050544303
  98. 39200000000000000050F100020544420339200000000000000090D100020244
  99. 420339200000000000000029D1000305415E4308BA2033920100000000000005
  100. 084E2010379C2A284E20103733920100000000000001050FA176BA1EEDA1EEDA
  101. 19C2A284E20103733920400000000000001050FA176BA19C2A284E2010373392
  102. 0700000000000001050FA176BA1EEDA150FA1B2130DC0006035D4F4F4458460D
  103. 9D20E163284E20501458441445ED2A284E205014584414458B9C1B7FC18DBF1E
  104. EDA10A132D6E2010A684E20501458441445D6E2010A66C7D178BF14B2A23CE22
  105. D5CE1AFE22D9D2033920200000000000063090DA1D6E2010A6DBBF1704D1B213
  106. 05BF228DBF15DF22ED2A2083324563284E2050145844144597632DCC0293632B
  107. 2130511003014E47430D9D20E163284E2050145844144584E204065945475936
  108. 32B2130E300030D4167630D9D20E163284E2050D45844144584E204065945475
  109. 93632B2130E30007024F4445444144570D9D20E163247A2084E20103784E2030
  110. 5415E484E2020244484E2020544484E2030050544BB8A184E20501424F42545B
  111. 2130D5112274328BA2054BA184E2010A9EEDA1B21304563284E20103797632DC
  112. C0284E2050D424F4445484E20501424F44454ED2A2691124563284E201037976
  113. 32EFE023392020000000000000103392099900000000002104C5A13392020000
  114. 000000000103392099900000000002104C5A193632B2130D868"
  115. --------------------8<--------------------8<---------------------
  116.  
  117.               INSTRUCTIONS FOR BODE PLOTTER
  118.     First download and install the bode plot routines from
  119. the earlier posting. Enter the BODE directory. You sould
  120. see [BODED] [MAG] [ANG] [SMOO] in the first 4 menu entries.
  121. An example has been preloaded so just press [MAG] to see
  122. the magnitude plot for the tranfer function:
  123.             H(s)=[50*(s*(1+s/10))]/[(1+s/10^4)*(1+s/10^7)]
  124. Once the plot has completed use the arrow keys to move the
  125. cursor around the screen. You can press [COORD] to get the
  126. cursor coordinates. The X-coordinate is the frequency (rad/s)
  127. in decades (e.g. x=1.5 => 10^1.5 rad/s). Tick marks are every
  128. decade. The Y-coordinate is in decibels (e.g. y=20 => 20 dB).
  129. Tick marks are every 20 dB. Now press [ON] to return to the
  130. menu. Next press [ANG] to see the angle bode plot. The X-
  131. coordinate is once again the frequency (rad/s)in decades (e.g.
  132. x=1.5 => 10^1.5 rad/s). Tick marks are every decade. The Y-
  133. coordinate is in degrees (e.g. y=20 => 20 degrees). Tick marks
  134. are every 20 degrees. Press [ON] to return to the menu.
  135.  
  136. Now we will step through an example from the beginning.
  137. Press [BODED]. A temporary menu is created and the calculator
  138. is halted. The menu should now look like this:
  139. [S] [EQN] [BD] [ED] [PPD] [CONT]
  140. and if you press [NXT] you should see [ABORT]. You will now
  141. enter the tranfer function:
  142.       100*s/[(1+s/10)*(1+s/10^4)*(1+s/(2*10^4))]
  143. Next store it into EQN (left shift [EQN]). After that specify a
  144. beginning decade (0 left shift [BD]), ending decade (7 left shift
  145. [ED]), and the points per decade (7 left shift [PPD]). The higher
  146. PPD is, the longer the calculator will take, but a more accurate
  147. plot will result. Now press [CONT]. If you had wished to cancel
  148. the plot you could have pressed [NXT] [ABORT]. You will have to
  149. wait for approx. 90 seconds for the calculator to finish its
  150. computations. Once it is done you will hear 2 short beeps if BEEP
  151. is enabled. As before press [MAG] to view the magnitude plot of a
  152. band-pass filter and [ANG] to produce the angle plot. If you ever
  153. press [ANG] and the plot is split in two (due the value returned
  154. by the ARG function), then press [SMOO] to smooth out the plot and
  155. press [ANG] again. Do not use [SMOO] unless the plot is split
  156. otherwise the angle values taken from the plot will be incorrect.
  157.  
  158. CREDITS:
  159. The bode plot routines were written entirely by Thedore W. Gregg and
  160. are copyright 1991, EXCEPT for the SPLOT and GETC routines (originally
  161. LPLOT and GETC) which were written first by Paul Dale and modified for
  162. use in these programs. You have my permission to freely distribute and
  163. use these routines for any non-profit or non-published purpose.
  164.  
  165. FOLLOWING IS PAUL DALE'S DISCLAIMER FOR LPLOT AND GETC:
  166. ------------------------------------------------------------------
  167. As usual, this program is copyright myself, 1991 all rights
  168. reserved but as usual, any non-profit usage of this program is ok
  169. by me (if you want to include it in your commercial software or
  170. publish it in a book/journal then you require my permission first
  171. --- it is usually given).
  172.  
  173. Enjoy...
  174.     Pauli                                                            seeya
  175.  
  176. Paul Dale               | Internet/CSnet:grue@batserver.cs.uq.oz.au
  177. Dept of Computer Science| Bitnet:grue%batserver.cs.uq.oz.au@uunet.uu.net
  178. Uni of Qld              | JANET:grue%batserver.cs.uq.oz.au@uk.ac.ukc
  179. Australia, 4072         | EAN:grue@batserver.cs.uq.oz
  180.                         | UUCP:uunet!munnari!batserver.cs.uq.oz!grue
  181. f4e6g4Qh4++             | JUNET:grue@batserver.cs.uq.oz.au
  182. ------------------------------------------------------------------------
  183.  
  184.  
  185. DISCLAIMER:
  186. These routines are provided "as is" with no expressed or implied
  187. warrantees. Any damage or losses caused by the use of these programs
  188. is soley the resposibility of the user.
  189.  
  190.  
  191. If you find these programs useful or have questions please drop me a
  192. note. If you can think of any way to speed them up please do so.
  193.  
  194. ---------------------------------------------------------------------------
  195. \ Theodore W. Gregg        | The most endangered species- the honest man, /
  196. \ MACC-Operations          | Will still survive annihilation.             /
  197. \ 1210 W. Dayton St.       | Forming a world state of integrity,          /
  198. \ Madison, WI 53715        | Sensistive, open, and strong.                /
  199. \ gregg@macc.wisc.edu      |                                   (N. Peart) /
  200. ---------------------------------------------------------------------------
  201.